home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chaos 3
/
Chaos_3_1997-06_-_de_Side_B.d64
/
job for news
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
73 lines
10 print"[147] please wait !"
20 iff=0thenf=1:load"job.music",8,1
30 iff=1thenf=2:load"job.musicout",8,1:
105 poke45,0:poke47,0:poke49,0:poke46,64:poke48,64:poke50,64
107 s1=16194
108 s2=16216
109 s3=16255
110 s4=16329
111 data 0, 0,165, 51,141, 64, 63
112 data165, 52,141, 65, 63,169, 0
113 data133,51,169,4,133,52,32,68,229,169,80,162,0,160,0,145,51,224,3,240,5
114 data200,208,247,240,5,200,192,248,144,240,230,52,232,224,4,208,231,173,64
116 data63,133,51,173,65,63,133,52,96,165,51,141,64,63,165,52
117 data141,65,63,169,0,133,51,169,32,133,52,166,184,32,198,255,162,0,160,0,32
118 data207,255,145,51,32,225,255,240,21,224,31,240,5,200,208,239,240,5,200,192
119 data64,144,232,230,52,232,224,32,208,223,166,184,32,204,255,173,64,63,133
120 data51,173,65,63,133,52,96,165,51,141,64,63,165,52,141,65,63,169,32,133,52
121 data169,0,133,51,170,160,0,145,51,224,31,240,5,200,208,247,240,5,200,192,64
122 data144,240,230,52,232,224,32,208,231,173,64,63,133,51,173,65,63,133,52,96
140 fora=0to191:readb:poke16192+a,b:s=s+b:next:
146 ifs<>23831thenprint"fehler":end
148 a1=53248+17
149 a2=peek(a1)
150 b1=53248+24
151 b2=peek(b1)
153 goto205
158 poke53280,hf:poke53281,hf:pokes2,pf*16+hf:pokea1,59:pokeb1,24
159 syss1
165 return
172 pokea1,a2:pokeb1,b2:poke53280,hf:poke53281,hf:printchr$(147);:return
183 open2,8,2,dn$+",p,r":get#2,a$:get#2,a$:
184 syss3:
185 close2:return
199 syss4
200 return
205 gosub199:gosub172:printchr$(159);chr$(147);:dn$="job.screen":pf=00:hf=07:
206 gosub183:gosub158:geta$
210 sys828,2
216 geta$
217 ifa$=""then216
219 gosub172:
220 sys828,0
221 gosub1000:
222 iff<3thenf=3:load"job.main",8,1
224 input"hintergr.";hf
225 input"zeichenf.";pf
227 gosub158:goto216:gosub172:end
1000 print"[147]":poke53280,6:poke53281,6
1010 print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
1020 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] [194] ";
1030 print" [194] [194] ziel d";
1040 print"ieses spieles ist es,binnen [194] [194] ";
1050 print"3 jahren soviel geld wie moeglich ";
1060 print"[194] [194] zu erwirtschaften. nach 3 j";
1070 print"ahren [194] [194] folgt die auswertung,";
1080 print" wobei nur [194] [194] das bargeld eine";
1090 print" rolle spielt.das [194] [194] heisst: v";
1100 print"or januar 1993 muessen [194]"
1110 print" [194] alle aktien,reporter,hallen ect. [194]"
1120 print" [194] verkauft werden. [194]"
1130 print" [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
1140 print" [194] autor: jens hoehne [194]"
1150 print" [194] michelangelostr.7 [194]"
1160 print" [194] dresden o-8020 [194]"
1170 print" [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
1180 print" [194] written in 1991 [194]"
1190 print" [194] [194]"
1200 print" [194] vielen dank an t.leo. fuer seine [194]"
1210 print" [194] geistreichen (!!?!) tips !!!!!!! [194]"
1220 print" [194] [194]"
1230 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
2000 return